"This PiXCL Tools demo requires at least 800x600X256 color mode to function. PiXCL Tools itself is display resolution independent. Please either set your PC display to a higher resolution mode or find a newer computer. 1024x768x256 or better is the recommended mode for best display results.",
"32 bit Windows application designed, written and copyright ⌐ (1994-2000) by VYSOR Integration Inc, Quebec, Canada, using the PiXCL Toolkit. All Rights Reserved.")
Goto Wait_for_input
Contact:
Chr(13,cr$ )
Address$ = "VYSOR Integration Inc." + cr$ + "91 rue Bocage, Suite B"
"PiXCL is a true Windows programming language, with over 700 commands for file, disk, string and math functions, powerful direct access to your screen to draw graphics and bitmap images, AND more than 40 image processing point and matrix operation commands.",LEFT)
WaitInput(Pause)
DrawText(20,170,"This demo program is written in PiXCL, and")
WaitInput(Pause)
DrawText(20,200,"so is this next dynamic action window.")
WaitInput(800)
If PiXCLMajor = 4
Run("pixcl44 ..\samples\sun2.pxl")
Else
Run("pixcl50 ..\samples\sun2.pxl")
Endif
SuperNova_1:
WaitInput(1000)
WinExist("Supernova",Res)
If Res = 1 Then Goto SuperNova_1
MessageBox(YESNO,1,QUESTION,"Want to see the source for the SuperNova demo?",
"Anyone can learn the PiXCL language",Res)
If Res = 1
WinShow(NewCaption$,NOTOPMOST,Res)
Run("NotePad.exe ..\samples\sun2.pxl")
MessageBox(OK,1,QUESTION,"Click OK or press Space to continue",
"Up to this point, you have seen backgrounds drawn,
various text sizes, styles, colors and fonts, plus
a few MessageBoxes and some 3D buttons.",LEFT)
DrawTextExt(10,170,600,250,
"Your programs provide feedback to you with MessageBoxes which can be created in all the common styles ... for example ...",LEFT)
WaitInput(1500)
{ MessageBoxes (Several types) }
MessageBox(OK,1,INFORMATION,
"MessageBoxes can be like this one ... informative.
This could be simple help for menu operations, or
program property information.",
"Information Box",Res)
MessageBox(OKCANCEL,1,EXCLAMATION,
"or like this one ... a bit more emphasis. Perhaps you
need to remind your user that an action is about to occur.",
"Exclamation Box",Res)
MessageBox(YESNO,1,QUESTION,
"or like this one ... asking you what to do now. You will
use this type of message box very often. And it is all easily
programmable with one simple command.",
"Question Box",Res)
MessageBox(RETRYCANCEL,1,QUESTION,
"or like this one ... retry some operation that did not
complete as expected. Actions involving floppy disks
will often require this type of message.",
"Retry-Cancel Box",Res)
DirGetWindows(WinDir$)
Themic$ = WinDir$ + "\media\The Microsoft Sound.wav"
FileExist(Themic$,Res)
If Res = 1 Then WAVPlaySound(Themic$,ASYNC,FILENAME,Res)
MessageBox(YESNOCANCEL,1,STOP,
"or like this one ... when something has gone wrong.
You can include an audible message too. If your PC
has a sound card enabled, you should have heard the
standard Microsoft sound ! You can use your own WAV files as
well.",
"Stop Box",Res)
MessageBox(OK,1,NOICON,
"or like this one with no icon at all. It can be used
for general information. The previous MessageBoxes
can have one, two or three buttons, combining either
'OK', 'YES', 'NO' or 'CANCEL' labels.",
"No Icon Box",Res)
Blah_3:
MessageBox(ABORTRETRYIGNORE,3,QUESTION,
"Need a MessageBox like this one ? Press IGNORE to keep on with the demo. Press the other buttons and see what happens.",
"Another style with three buttons",Res)
Msg$ = "Use this option when a process such as
floppy disk access needs to be stopped."
If Res = 1 Then MessageBox(OK,1,INFORMATION,Msg$,"Abort button pressed",Res) Goto Blah_3
Msg$ = "Use this option when a process such as
floppy disk access needs to be retried."
If Res = 2 Then MessageBox(OK,1,INFORMATION,Msg$,"Retry button pressed",Res) Goto Blah_3
Blah_3a:
AboutUser("Your Application Title goes here!",
"Describe your PiXCL Application in this text region",
"Does your application need an 'About...' box ? This dialog box is provided in PiXCL to describe any program you write. The current default icon is displayed as well.")
{ TextBoxes }
GoSub Draw_Green_Shade
DrawTextExt(10,200,600,400,
"You can enter information into a TextBox for later processing. Textbox titles and text are programmable, and the input strings can be converted to integers if required",LEFT)
WaitInput(1200)
Set Text$ =
"Make a few changes to the highlighted text in the edit box. Click OK to Continue; Click CANCEL to Ignore"
Set Caption$ = "Example of a TextBox"
Set Input$ = "Default text can be displayed, like this, and editted"
TextBox(Text$, Caption$,Input$,Btn)
MessageBox(OK,1,INFORMATION,Input$,"Result of previous Text Entry",Res)
GoSub Draw_Green_Shade
UpdateProgressBar(Value,RELATIVE)
DrawTextExt(10,200,600,400,
"You can select an item from a ListBox for later processing. A list might be filenames, or values read from an INI file or the system registry.",LEFT)
"Image and Graphics files can be displayed! Thirteen of the most commonly used image formats are supported. Various sizes are possible, and can be placed anywhere on your screen under program control.",LEFT)
Pause1 = Pause * 2
Image0:
Image1:
If SVGA$ = "Y"
DrawSizedBitMap(100,200,351,550,ImageFile2$)
DrawSizedBitmap(400,190,640,411,ImageFile3$)
Endif
Image2:
If XGA$ = "Y"
FileExist(ImageFile2$,Res)
If Res = 1 Then DrawBitMap(100,200,ImageFile2$)
FileExist(ImageFile3$,Res)
WaitInput(1000)
If Res = 1 Then DrawSizedBitmap(400,190,500,250,ImageFile3$)
"All the supported image formats (BMP, JIFF, JPEG, OS2 bitmap, Photo-CD, PCX, PPM, PNG, PSD, RAS, RLE, TGA, TIF ) can be processed with the most commonly needed point and matrix functions, such as brightness and contrast enhancements, red-green-blue channel adjustments, image sharpening, edge detection, 5x5 and 15x15 user defined filters. Geometric functions include image rotation, warping by affine transform, and resampling, all with Nearest Neighbor, Bilinear or Bicubic mode options. PiXCL 5.1 has more options than FreePiXCL.",LEFT)
WaitInput(2000)
MessageBox(YESNO,1,QUESTION,
"Would you like to see the Image Processing command Help file ?",